home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.06 Jun 88 / forth source / graf3dglue.a < prev    next >
Encoding:
Text File  |  1988-04-18  |  688 b   |  40 lines  |  [TEXT/MPS ]
  1.                 TITLE            'Graf3D glue code for Mach2'
  2.                 BLANKS            OFF     ; allow comments without semicolons
  3.  
  4.                 PRINT            OFF
  5.                 INCLUDE         'Traps.a'
  6.                 INCLUDE         'ToolEqu.a'
  7.                 INCLUDE         'QuickEqu.a'
  8.                 INCLUDE         'SysEqu.a'
  9.                 INCLUDE         'Graf3DEqu.a'
  10.                 PRINT            ON
  11.  
  12. GrafGlue            MAIN
  13.     JMP   InitGrf3D
  14.     JMP   Open3DPort
  15.     JMP   SetPort3D
  16.     JMP   GetPort3D
  17.     JMP   MoveTo2D
  18.     JMP   MoveTo3D
  19.     JMP   LineTo2D
  20.     JMP   LineTo3D
  21.     JMP   Move2D
  22.     JMP   Move3D
  23.     JMP   Line2D
  24.     JMP   Line3D
  25.     JMP   ViewPort
  26.     JMP   LookAt
  27.     JMP   ViewAngle
  28.     JMP   Identity
  29.     JMP   Scale
  30.     JMP   Translate
  31.     JMP   Pitch
  32.     JMP   Yaw
  33.     JMP   Roll
  34.     JMP   Skew
  35.     JMP   Transform
  36.     JMP   Clip3D
  37.     JMP   SetPt3D
  38.     JMP   SetPt2D
  39.     END             ;                of Sample
  40.